home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / fiq.src < prev    next >
Text File  |  1991-02-21  |  258b  |  8 lines
  1. %%HP:;
  2. @ FIQ, Feet & Inches ->Q
  3. @ by Aaron Boonshoft
  4. \<< \->NUM IF DUP TYPE THEN '1_in' CONVERT '1_in' /
  5. ELSE SWAP 12 * + END DUP SIGN SWAP ABS DUP 12 / IP
  6. '1_ft' * SWAP 12 MOD DUP IP SWAP FP \->Q + '1_in' *
  7. = { '&A=&B' '&A+&B' } \|vMATCH DROP * \>>
  8.